﻿
''' <summary>
''' Represents a Kleene star (closure) of a regular expression
''' </summary>
Public NotInheritable Class KleeneStar
    Inherits RegularExpression

    Public Sub New(ByVal innerExp As RegularExpression)
        MyBase.New(RegularExpressionType.KleeneStar)
        CodeContract.RequiresArgumentNotNull(innerExp, "exp")

        m_innerExpression = innerExp
    End Sub

    Private m_innerExpression As RegularExpression
    Public ReadOnly Property InnerExpression() As RegularExpression
        Get
            Return m_innerExpression
        End Get
    End Property
End Class
